60000 POKE211,X:POKE214,Y:SYS58640:IFLEN(A$)=0THENRETURN
60005 PRINTA$
60010 POKE211,X:POKE214,Y+1:SYS58640
60015 PRINT""A$
60020 RETURN
60100 POKE211,X:POKE214,Y:SYS58640:IFLEN(A$)=0THENRETURN
60105 FOR QU=1 TO LEN(A$)
60110 B$=MID$(A$,QU,1)
60115 PRINTB$""B$"[146]";
60120 NEXT
60130 RETURN
60200 POKE211,X:POKE214,Y:SYS58640:IFLEN(A$)=0THENRETURN
60205 PRINT"[146]";
60210 FORQU=1TOLEN(A$)
60215 B$=MID$(A$,QU,1)
60220 PRINTB$;CHR$(128+ASC(B$));
60225 NEXT
60230 POKE211,X:POKE214,Y+1:SYS58640:PRINT"";
60235 FORQU=1TOLEN(A$)
60240 B$=MID$(A$,QU,1)
60245 PRINTB$;CHR$(128+ASC(B$));
60250 NEXT:PRINT"[146]";:RETURN
60300 POKE211,X:POKE214,Y:SYS58640:IFLEN(A$)=0THENRETURN
60305 POKE646,F1:PRINTA$
60310 POKE211,X:POKE214,Y+1:SYS58640
60312 POKE646,F2:PRINTA$
60315 RETURN